home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / ARGONET / PD / MATHS / RLAB / RLAB125.ZIP / !RLaB / examples / fac3 < prev    next >
Text File  |  1996-04-09  |  163b  |  21 lines
  1. //
  2. // A medium-speed fac()
  3. //
  4.  
  5. fac3 = function ( F )
  6. {
  7.   local (F)
  8.  
  9.   if (F < 1)
  10.   {
  11.     F = 1;
  12.   }
  13.   x = 1;
  14.   for (j in 1:F)
  15.   {
  16.     x = x*j;
  17.   }
  18.  
  19.   return x;
  20. };
  21.